home *** CD-ROM | disk | FTP | other *** search
- /* UserInfo 1.25 (c) by Kasper B. Graversen */
- /* arexx script for iX-Guide by I. Sturlic */
- /* $VER: 1.0 */
-
- OPTIONS RESULTS
-
- if ~show('p','IXGUIDE') then
- do
- say 'iX-Guide is not running ...'
- exit
- end
-
- if ~show('l',"rexxsupport.library") then
- addlib("rexxsupport.library",0,-30,0)
-
- parse arg uipath uistrfile destfile .
-
- address command
- uipath'ui125' 'READ' uipath uistrfile 'T:uid1.tmp' 'MAIL'
-
- if (~open('src','T:uid1.tmp','R')) | (~open('dst',destfile,'W')) then do
- say 'Cannot open temporary files'
- exit
- end
-
- do until eof('src')
- ln=readln('src')
- newln=ln
- if abbrev(ln,'>') then do
- newln = insert('@{li}@{font f2}@{fg shine}@{b}',newln)
- newln = insert('@{fg text}@{ub}@{font deff}',newln,length(newln))
- end
- call writeln('dst',newln)
- end
-
- call close('src'); call close('dst')
- call delete('T:uid1.tmp')
- exit
-